home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1469 / array.frm (.txt) < prev    next >
Visual Basic Form  |  1996-07-28  |  5KB  |  172 lines
  1. VERSION 4.00
  2. Begin VB.Form frmArray 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "VBMax Electronic Message Demo - Arrays"
  5.    ClientHeight    =   2310
  6.    ClientLeft      =   1110
  7.    ClientTop       =   2925
  8.    ClientWidth     =   6315
  9.    ControlBox      =   0   'False
  10.    Height          =   2715
  11.    Icon            =   "Array.frx":0000
  12.    Left            =   1050
  13.    LinkTopic       =   "Form1"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   154
  18.    ScaleMode       =   3  'Pixel
  19.    ScaleWidth      =   421
  20.    Top             =   2580
  21.    Width           =   6435
  22.    Begin VB.Timer Timer1 
  23.       Enabled         =   0   'False
  24.       Interval        =   1
  25.       Left            =   2580
  26.       Top             =   540
  27.    End
  28.    Begin VB.PictureBox picDisplay 
  29.       Appearance      =   0  'Flat
  30.       BackColor       =   &H80000005&
  31.       BorderStyle     =   0  'None
  32.       ForeColor       =   &H80000008&
  33.       Height          =   420
  34.       Index           =   3
  35.       Left            =   225
  36.       ScaleHeight     =   420
  37.       ScaleWidth      =   5805
  38.       TabIndex        =   3
  39.       Top             =   1650
  40.       Width           =   5805
  41.    End
  42.    Begin VB.PictureBox picDisplay 
  43.       Appearance      =   0  'Flat
  44.       BackColor       =   &H80000005&
  45.       BorderStyle     =   0  'None
  46.       ForeColor       =   &H80000008&
  47.       Height          =   420
  48.       Index           =   2
  49.       Left            =   225
  50.       ScaleHeight     =   420
  51.       ScaleWidth      =   5805
  52.       TabIndex        =   2
  53.       Top             =   1245
  54.       Width           =   5805
  55.    End
  56.    Begin VB.PictureBox picDisplay 
  57.       Appearance      =   0  'Flat
  58.       BackColor       =   &H80000005&
  59.       BorderStyle     =   0  'None
  60.       ForeColor       =   &H80000008&
  61.       Height          =   420
  62.       Index           =   1
  63.       Left            =   225
  64.       ScaleHeight     =   420
  65.       ScaleWidth      =   5805
  66.       TabIndex        =   1
  67.       Top             =   840
  68.       Width           =   5805
  69.    End
  70.    Begin VB.PictureBox picDisplay 
  71.       Appearance      =   0  'Flat
  72.       BackColor       =   &H80000005&
  73.       BorderStyle     =   0  'None
  74.       ForeColor       =   &H80000008&
  75.       Height          =   420
  76.       Index           =   0
  77.       Left            =   225
  78.       ScaleHeight     =   420
  79.       ScaleWidth      =   5805
  80.       TabIndex        =   0
  81.       Top             =   150
  82.       Width           =   5805
  83.    End
  84.    Begin VB.Shape Shape2 
  85.       BackColor       =   &H80000010&
  86.       BackStyle       =   1  'Opaque
  87.       BorderStyle     =   0  'Transparent
  88.       Height          =   1245
  89.       Left            =   315
  90.       Top             =   930
  91.       Width           =   5805
  92.    End
  93.    Begin VB.Shape Shape1 
  94.       BackColor       =   &H80000010&
  95.       BackStyle       =   1  'Opaque
  96.       BorderStyle     =   0  'Transparent
  97.       Height          =   420
  98.       Left            =   315
  99.       Top             =   240
  100.       Width           =   5805
  101.    End
  102. Attribute VB_Name = "frmArray"
  103. Attribute VB_Creatable = False
  104. Attribute VB_Exposed = False
  105. Option Explicit
  106. Dim moEDisp(3) As New CElectronicDisplay
  107. Private Sub Form_Load()
  108.     Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  109.     With moEDisp(0)
  110.         .BackColor = &H400080
  111.         .ForeColor = vbYellow
  112.         .Effect = gnEFFECT_STATIC
  113.         Set .Container = picDisplay(0)
  114.     End With
  115.     With moEDisp(1)
  116.         .ShowGrid = False
  117.         .BackColor = vbBlack
  118.         .ForeColor = vbRed
  119.         .Effect = gnEFFECT_SLIDE_FROM_LEFT
  120.         .NotifyWhenFinished = True
  121.         Set .Container = picDisplay(1)
  122.         .Caption = "Registration is only"
  123.     End With
  124.     With moEDisp(2)
  125.         .ShowGrid = False
  126.         .BackColor = vbBlack
  127.         .ForeColor = vbWhite
  128.         .Effect = gnEFFECT_SLIDE_FROM_RIGHT
  129.         Set .Container = picDisplay(2)
  130.         .Caption = "$10.00 and you get"
  131.     End With
  132.     With moEDisp(3)
  133.         .ShowGrid = False
  134.         .BackColor = vbBlack
  135.         .ForeColor = vbBlue
  136.         .Effect = gnEFFECT_SLIDE_FROM_LEFT
  137.         Set .Container = picDisplay(3)
  138.         .Caption = "the source code too!"
  139.     End With
  140. End Sub
  141. Private Sub Form_Unload(Cancel As Integer)
  142. Dim i As Integer
  143.     For i = 0 To 3
  144.         moEDisp(i).Shutdown
  145.         Set moEDisp(i) = Nothing
  146.     Next i
  147.     Set frmArray = Nothing
  148. End Sub
  149. Public Sub VBMaxElectronicDisplay_Finished(roEDisp As CElectronicDisplay)
  150.     Select Case True
  151.             
  152.         Case roEDisp Is moEDisp(1)
  153.             With moEDisp(0)
  154.                 .Effect = gnEFFECT_SCROLL
  155.                 .ScrollAmount = gnENTIRE_CHARACTER
  156.                 .Interval = 125
  157.                 .NotifyWhenFinished = True
  158.                 .Caption = "VBMax programming widgets are made " & _
  159.                            "from fresh, 100% pure VB code and " & _
  160.                            "contain no third-party additives.  " & _
  161.                            "                 Bye, bye!      "
  162.             End With
  163.         Case roEDisp Is moEDisp(0)
  164.             Timer1.Enabled = True
  165.             
  166.     End Select
  167. End Sub
  168. Private Sub Timer1_Timer()
  169.     Timer1.Enabled = False
  170.     Unload Me
  171. End Sub
  172.